home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 45 / 045.d81 / word bowl boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  458b  |  17 lines
  1. 0 print"[147]"chr$(8)
  2. 10 ifa=.thena=1:load"unpacker",8,1
  3. 20 ifa=1thena=2:load"bowl.shp",8,1
  4. 50 poke53280,.:poke53281,.
  5. 60 bm=40960:co=35840
  6. 70 poke249,bm/256:rem   bitmap memory
  7. 80 poke250,co/256:rem   color memory
  8. 90 poke251,0     :rem   low byte of shp
  9. 100 poke252,64   :rem  high byte of shp
  10. 110 poke253,.:poke254,.
  11. 120 sys51456 :rem    unpack that shape!
  12. 130 sys51459 :rem    show that shape!
  13. 140 print"l[207]"chr$(34)"b"chr$(34)",8"
  14. 150 print"run"
  15. 157 poke157,0:rem    no messages
  16. 160 poke631,13:poke632,13:poke157,128:poke198,3:end
  17.